home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ QuickLaunch 2.xpl < prev    next >
Text File  |  2001-04-06  |  3KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Taskbar"
  5. "NAME"="QuickLaunch Bar View Channels / Explorer link"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Create "View Channels" link"
  8. "TEXT 2"="Create "Windows Explorer" link"
  9. "DESCRIPTION 1"="If you have deleted the "View Channels" link in your Quick Launch bar, click the first button to create it again."
  10. "DESCRIPTION 2"="You can also add a link to Windows Explorer on your Quick Launch bar by clicking on the second link."
  11. "DESCRIPTION 3"="The Quick Launch bar is installed with the ActiveDesktop feature of Internet Explorer 4.x and above."
  12. "COMMENT 1"="I think it's blatantly obvious which plug-in this is based on... sorry TeXHeX!!!"
  13. "VERSION"="1.14"
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  15. "CONTACTURL"="http://www.neilrt.cwc.net/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  17.  
  18. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData"
  19. sPath1="\Microsoft\Internet Explorer\Quick Launch\View Channels.scf"
  20. sPath2="\Microsoft\Internet Explorer\Quick Launch\Windows Explorer.scf"
  21.  
  22. SUB Plugin_Initialize
  23.  s=RegReadValue(sV1)
  24.  if IsEmpty(s)=true then
  25.   Disable
  26.  end if
  27. END SUB
  28.  
  29. SUB Plugin_CheckData
  30. END SUB
  31.  
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  Select Case ElementIndex
  34.  Case 1
  35.   s=RegReadValue(sV1)
  36.   if IsEmpty(s)=false then
  37.    s=s & sPath1
  38.    'Let's write the file!!!
  39.    Call IniWriteValue(s,"Shell","Command","3")
  40.    Call IniWriteValue(s,"Shell","IconFile","shdocvw.dll,-118")
  41.    Call IniWriteValue(s,"IE","Command","Channels")
  42.    'And I'm TOOO kidding sometimes too :)
  43.    Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems' X-Setup")
  44.   else
  45.    Call MsgError("X-Setup was unable to find the location if your Application Data folder from the Registry. This may be because you haven't installed the Windows Desktop Update - this is installed if you have Internet Explorer 4.x. Otherwise, you may have a corrupted Windows registry.")
  46.   end if
  47.   
  48.  Case 2
  49.   s=RegReadValue(sV1)
  50.   if IsEmpty(s)=false then
  51.    s=s & sPath2
  52.    'Let's write the file!!!
  53.    Call IniWriteValue(s,"Shell","Command","2")
  54.    Call IniWriteValue(s,"Shell","IconFile","explorer.exe,1")
  55.    Call IniWriteValue(s,"Taskbar","Command","Explorer")
  56.    'And I'm TOOO kidding sometimes too :)
  57.    Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems' X-Setup")
  58.   else
  59.    Call MsgError("X-Setup was unable to find the location if your Application Data folder from the Registry. This may be because you haven't installed the Windows Desktop Update - this is installed if you have Internet Explorer 4.x. Otherwise, you may have a corrupted Windows registry.")
  60.   end if
  61.  End Select
  62. END SUB
  63.  
  64. SUB Plugin_Terminate
  65. END SUB
  66.